home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / patch / pagestream / pgs32tu3 / install-tuneup3 < prev    next >
Text File  |  1996-11-21  |  3KB  |  70 lines
  1. ;PAGESTREAM 3.1/3.2 TUNEUP #3 INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1996 SOFTLOGIK PUBLISHING CORPORATION
  3.  
  4. ;QUIT PROGRAMS
  5. (message "\n\nStop now if you haven't read the Read.1st! file for important instructions.\n\nIf PageStream, BME or PageLiner are running now, quit them before continuing.")
  6. (run "avail flush" (safe))
  7.  
  8. ;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
  9. (run "CD PageStream3:" (safe))
  10. (run "CD SoftLogik:" (safe))
  11. (run "assign fonts: softlogik:fonts add" (safe))
  12.  
  13. ;CONFIRM CORRECT VERSION IS INSTALLED, SET DESTINATION
  14. (message ("\n\nThis TuneUp will update some of your PageStream 3.1 or 3.2 program files.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.1 or 3.2 installed to use this TuneUp."))
  15. (if (<> (exists "PageStream3:PageStream3") 1)
  16.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream 3.1 or 3.2 before installing this TuneUp.")
  17. )
  18. ;get destination
  19. (set PGSdest (getassign "PageStream3" "a"))
  20. (set SLdest (getassign "SoftLogik" "a"))
  21. (if (OR (= PGSdest "") (= SLdest ""))
  22.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream 3.1 or 3.2 before installing this TuneUp.")
  23. )
  24. (set @default-dest PGSdest)
  25.  
  26. ;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST
  27. (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
  28. (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Libs" (infos)))
  29. (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
  30. (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  31. (if (<> (exists "PageStream3:Scripts") 2) (makedir "PageStream3:Scripts" (infos)))
  32. (if (= (exists "PageStream3:Scripts/PageStream3.scripts") 1) (rename "PageStream3:Scripts/PageStream3.scripts" "PageStream3:Scripts/PageStream3.scripts.bak"))
  33.  
  34.  
  35. ;COPY THE LHEX PROGRAM TO RAM:
  36. (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))
  37.  
  38. ;UPDATE LIBS
  39. (working "Installing Updated Libraries...")
  40. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
  41. (delete "Libs.LHA" (safe))
  42.  
  43. ;UPDATE FILTERS
  44. (working "Installing Updated Filters...")
  45. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
  46. (delete "Filters.LHA" (safe))
  47.  
  48. ;UPDATE ENGINES
  49. (working "Installing Updated Engines...")
  50. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
  51. (delete "Engines.LHA" (safe))
  52.  
  53. ;UPDATE PRINTERS
  54. (working "Installing Updated Printer Drivers...")
  55. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.lha")
  56. (delete "Printers.LHA" (safe))
  57.  
  58. ;UPDATE SCRIPTS
  59. (working "Installing Updated Scripts...")
  60. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts x Scripts.lha")
  61. (delete "Scripts.LHA" (safe))
  62. (message "\n\nYour PageStream3:Scripts/PageStream3.scripts file has been renamed to PageStream3.scripts.bak and a new version has been installed. Load the old version if you need old scripts that you have created.")
  63.  
  64.  
  65. ;REMOVE THE LHEX PROGRAM
  66. (delete "ram:lhex" (safe))
  67.  
  68. ;DONE
  69. (exit "Finished installing TuneUp #3.")
  70.